home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / minefeld.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-05-31  |  1.1 KB  |  28 lines
  1. 3  '
  2. 5  'See PC World, 10-83, *.* column for listing of this game
  3. 7  'Modified by K. Lehman
  4. 9  '
  5. 10  DEFINT A-Z: WIDTH 40: KEY OFF: M=1
  6. 20  S = 20: T=-18: CLS
  7. 30  LOCATE 2,1: INPUT "Minefield density (1-10):",M$
  8. 40  IF VAL(M$)<1 OR VAL (M$) >10 THEN 30 ELSE M=VAL(M$)
  9. 42  LOCATE 3,1: INPUT "Skill level - Expert, Novice, Beginner (E,N,B):", X$
  10. 45  IF X$="E" OR X$="e" THEN DELAY=0 ELSE IF X$="N" OR X$="n" THEN DELAY=15           ELSE IF X$="B" OR X$="b" THEN DELAY=30 ELSE GOTO 42
  11. 50  COLOR 3,0:LOCATE 23,1: PRINT "|";: LOCATE 23,39:PRINT "|"
  12. 60  COLOR 6,0: FOR I=1 TO M: X=RND*36+2:LOCATE 23,X:PRINT CHR$(15);:NEXT
  13. 70  T=T+1:LOCATE 25,1:PRINT M*T:I$=INKEY$
  14. 80  IF I$=CHR$(0)+CHR$(77) THEN S=S+1:SOUND 1000,0.5 ELSE IF                            I$=CHR$(0)+CHR$(75) THEN S=S-1:SOUND 1000,0.5
  15. 85  FOR J=1 TO DELAY*M: NEXT J
  16. 90  P=SCREEN(5,S): IF P<>32 AND P<>0 THEN 110
  17. 100  COLOR 4,0:LOCATE 5,S:SOUND 200,0.5:PRINT CHR$(25):GOTO 50
  18. 110  IF S>5 THEN S=S-5
  19. 120  COLOR 5,0: LOCATE 5,S: PRINT "<<< ZAP! >>>";
  20. 130  FOR X=1000 TO 1900 STEP 100: SOUND X,0.5:NEXT
  21. 140  FOR X=1 TO 10: SOUND 500,0.5: SOUND 1000,0.5
  22. 150  FOR DV=1 TO 100: NEXT DV: NEXT X
  23. 160  LOCATE 25,1: COLOR 0,7: PRINT "SCORE:";M*T;: COLOR 7,0
  24. 170  LOCATE 24,1: WHILE INKEY$<>"": WEND
  25. 180  PRINT "Press 'P' to play again...";
  26. 190  Q$=INKEY$: IF Q$="" THEN 190
  27. 200  IF Q$="P" OR Q$="p" THEN 20 ELSE END
  28.